2 REM ================================
3 REM   COMMODARES SOLUTION #43-4 :
4 REM     FRACTION FUN
5 REM   SOLUTION BY
6 REM     FRANK WALCZER
7 REM ================================
10 PRINT"[147]THE VALID NUMBERS ARE:":PRINT
20 FOR D=100 TO 999
30 N=D*D : D$=STR$(D) : N$=STR$(N)
40 D$=MID$(D$,2,3) : N$=MID$(N$,2,6) :  T$=D$+N$
50 IF LEN(T$)<>9 THEN 120
60 FOR X=1 TO 8
70 FOR Y=X+1 TO 9
80 IF MID$(T$,X,1)=MID$(T$,Y,1) THEN 120
90 NEXT Y
100 NEXT X
110 PRINT"   ";D$" * ";D$;" = ";N$
120 NEXT D